Sub VoegWerkbladenToeInOmgekeerdeVolgordeEnVerwijderActiefBlad()
    Dim ws As Worksheet
    Dim nieuweBlad As Worksheet
    Dim cel As Range
    Dim namen As Collection
    Dim i As Long
    
    ' Zorg dat we in het actieve werkblad werken
    Set ws = ActiveSheet
    
    ' Verzamel alle namen in kolom A in een Collection
    Set namen = New Collection
    For Each cel In ws.Range("A1:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row)
        If Not IsEmpty(cel.Value) Then
            namen.Add cel.Value
        End If
    Next cel
    
    ' Voeg werkbladen toe in omgekeerde volgorde
    For i = namen.Count To 1 Step -1
        Set nieuweBlad = ThisWorkbook.Sheets.Add
        On Error Resume Next ' Zorg dat er geen fout optreedt bij dubbele namen
        nieuweBlad.Name = namen(i)
        On Error GoTo 0
    Next i
    
    ' Verwijder het actieve werkblad
    Application.DisplayAlerts = False ' Voorkomt waarschuwingen
    ws.Delete
    Application.DisplayAlerts = True ' Herstel waarschuwingen
End Sub